sampleSizeOneProportionDialog <- function(){
	initializeDialog(title=gettext("Sample Size Calculation One Proportion", domain="R-RcmdrPlugin.TeachingExtras"))
	onOK <- function(){
		p <- tclvalue(pVariable)
		sig <- tclvalue(sigVariable)
		error <- tclvalue(errorVariable)
		N <- tclvalue(NVariable)
		closeDialog()
		doItAndPrint(paste("sampleSizeOneProportion(p=", p, ", sig.level=", sig, ", error=", error, ", N=", N, ")", sep=""))
		tkdestroy(top)
		tkfocus(CommanderWindow())
	}
	OKCancelHelp(helpSubject="sampleSizeOneProportion")
	pFrame <- tkframe(top)
	pVariable <- tclVar("0.5")
	pField <- ttkentry(pFrame, width="8", textvariable=pVariable)
	sigFrame <- tkframe(top)
	sigVariable <- tclVar(".05")
	sigField <- ttkentry(sigFrame, width="6", textvariable=sigVariable)
	errorFrame <- tkframe(top)
	errorVariable <- tclVar("0.1")
	errorField <- ttkentry(errorFrame, width="6", textvariable=errorVariable)
	NFrame <- tkframe(top)
	NVariable <- tclVar("")
	NField <- ttkentry(NFrame, width="8", textvariable=NVariable)
	tkgrid(labelRcmdr(pFrame, text=gettext("p: ", domain="R-RcmdrPlugin.TeachingExtras")), pField, sticky="w")
	tkgrid(pFrame, sticky="w")
	tkgrid(labelRcmdr(sigFrame, text=gettext("Sig. Level: ", domain="R-RcmdrPlugin.TeachingExtras")), sigField, sticky="w")
	tkgrid(sigFrame, sticky="w")
	tkgrid(labelRcmdr(errorFrame, text=gettext("Error: ", domain="R-RcmdrPlugin.TeachingExtras")), errorField, sticky="w")
	tkgrid(errorFrame, sticky="w")
	tkgrid(labelRcmdr(NFrame, text=gettext("Population size: ", domain="R-RcmdrPlugin.TeachingExtras")), NField, sticky="w")
	tkgrid(NFrame, sticky="w")
	tkgrid(buttonsFrame, sticky="w")
	dialogSuffix(rows=4, columns = 1)
}